
  CALL  T_OUT

  LD  BC,3000H
  LD  L,32
  CALL  T_OUT

  LD  HL,STAR_PCG
  LD  DE,0801H
  CALL  SETPCG

  CALL  TOROKU
  LD  HL,STARVAL
  LD  (KIX),HL

  LD  A,11111111B
  LD  B,13H
  OUT (C),A

  LD  HL,INT_STAR
  LD  (CTC1),HL
  DI
  LD  BC,1FA1H
  LD  A,167
  OUT (C),A
  LD  A,64
  OUT (C),A
  EI
  RET

TOROKU: ;            0      1        2          3           4      5
  ;             STAR DATA/COLOR/GRAM ADR low/GRAM ADR high/SPEED/SPEED'
DATA: EQU       6
HOWM: EQU       64
  LD  HL,STARVAL
  DO  B,HOWM    {
  PUSH  BC
  CALL  SETVAL
  POP BC
  }
  RET

SETVAL:
  LD  (HL),8    ;0
  PUSH  HL
IRO:
  CALL  RND
  LD  A,H
  INC A
  AND 7
  IF  Z THEN LD A,5
  OR  32
  POP HL
  INC HL
  LD  (HL),A    ;1
  PUSH  HL
SAIRN
  CALL  RND
  SRL H
  LD  A,H
  IF  A>=